home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / lang / SmallEiffel.lha / SmallEiffel / misc / benchmarks / gc / MFSO / fruit.e < prev   
Encoding:
Text File  |  1998-12-22  |  119 b   |  13 lines

  1. class FRUIT
  2.  
  3. feature
  4.  
  5.    seed: INTEGER;
  6.  
  7.    make (new_seed : INTEGER) is
  8.       do
  9.      seed := new_seed
  10.       end
  11.    
  12. end
  13.